home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / fpkpas92.zip / SRCRTL.ZIP / RTL / DOS / VESADEB.PPI < prev    next >
Text File  |  1997-07-01  |  3KB  |  45 lines
  1. { VESADEB.INC - contains Debuginformations for the VESA.PPU }
  2.  
  3.     writeln('VESA-Signature   : ',
  4.       VGAInfo.VESASignature[1],VGAInfo.VESASignature[2],VGAInfo.VESASignature[3],
  5.       VGAInfo.VESASignature[4],VGAInfo.VESAhiVersion,'.',VGAInfo.VESAloVersion);
  6.     writeln('Memory installed : ',VGAInfo.Totalmem * 64,'K');
  7.     writeln;
  8.     write('Mode $',HexStr(GraphMode,4),'            : ');
  9.       if (VESAInfo.ModeAttributes and 1)=0 then write('not '); writeln('supported');
  10.     writeln('Resolution            : ',VESAInfo.XResolution,'x',VESAInfo.YResolution);
  11.     write('optional Informations : ');
  12.       if (VESAInfo.ModeAttributes and 2)=0 then write('not '); writeln('available');
  13.     write('BIOS Output           : ');
  14.       if (VESAInfo.ModeAttributes and 4)=0 then write('not '); writeln('supported');     
  15.     write('Mode                  : ');
  16.       if (VESAInfo.ModeAttributes and 8)<>0 then write('colour, ') else write('monochrom, ');     
  17.       if (VESAInfo.ModeAttributes and $10)<>0 then writeln('graphic') else writeln('text');     
  18.     if VGAInfo.VESAhiVersion=2 then begin
  19.       write('Mode VGA-compatible   : ');
  20.       if (VESAInfo.ModeAttributes and $20)<>0 then writeln('no') else writeln('yes');
  21.       write('Bankswitching         : ');
  22.       if (VESAInfo.ModeAttributes and $40)<>0 then write('not '); Writeln('supported');
  23.       write('linear FrameBuffer    : ');
  24.       if (VESAInfo.ModeAttributes and $80)=0 then write('not supported') else
  25.        begin Writeln('supported');
  26.              Writeln('PhysBaseAddress at : 0x',HexStr(VESAInfo.PhysAddress,8));
  27.              Writeln('LinearBase at      : 0x',Hexstr(Get_linear_addr(VESAInfo.PhysAddress,VGAInfo.TotalMem shl 16),8));
  28.              Writeln('OffscreenOffset    : 0x',HexStr(VESAInfo.OffScreenPtr,8));
  29.              Writeln('OffscreenMem       : ',VESAInfo.OffScreenMem,'KB');           
  30.        end;
  31.     end;
  32.     writeln;
  33.     writeln('BankSwitchRoutine at: ',HexStr(VESAInfo.RealWinFuncPtr,8));
  34.     write('WindowA: read: '); if VESAInfo.WinAAttributes and 3<>0 then write('yes')else write('no ');
  35.     write('    write: ');     if VESAInfo.WinAAttributes and 7<>0 then write('yes')else write('no ');
  36.     writeln('   Segment:  ',HexStr(VESAInfo.segWinA,4));
  37.     write('WindowB: read: '); if VESAInfo.WinBAttributes and 3<>0 then write('yes')else write('no ');
  38.     write('    write: ');     if VESAInfo.WinBAttributes and 7<>0 then write('yes')else write('no ');
  39.     writeln('   Segment:  ',HexStr(VESAInfo.segWinB,4));
  40.     writeln('Granularity  : ',VESAInfo.WinGranularity);
  41.     writeln('WinSize      : ',VESAInfo.Winsize,' KByte');
  42.     writeln('BytesPerLine : ',BytesPerLine);
  43.     writeln('BytesPerPixel: ',BytesPerPixel);
  44.     readln;
  45.